Top 10k strings from ZX Spectrum+ Graphics Pack (1985)(Dorling Kindersley Software)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
5 "Line draw ( 2 n$="Spectrum" 2 g(tx,ty,x,by) 2 ;"followed by:"' 2 ;"PLEASE WAIT" 2 ;"Graphics Editor": 2 7)","b specifies bright (1=on, 0=off)","f specifies flash (1=on, 0=off)" 2 ,"x,y specify top left-hand corner of area to be cleared (x<32, y<24)","h,v specify relative distance in characters to bottom right- hand corner of area (x+h<32) (y+v<24)","c specifies the colour (0 2 ," No Parameters needed" 1 ~2222~~~|4444|||z6666zzzx8888xxxv::::vvvt<<<<tttr>>>>rrrp@@@@pppnBBBBnnnlDDDDllljFFFFjjjhHHHHhhhfJJJJfffdLLLLdddbNNNNbbb`PPPP```^RRRR^^^\TTTT\\\ZVVVVZZZXXXX 1 xor=nx XOR line 1 window paper 1 window ink 1 window cls 1 t$,ad,ln,x$,p$,g$,sub,f$ 1 selection routine 1 sel=opnum+5 1 sel=opnum+4 1 sel=opnum+3 1 sel=opnum+1 1 scr3 1 save machine code routine 1 q(x,y,h,v)R\ 1 pyramid line 1 perspecbox 1 pap=asc-48 1 option routine 1 option for demo page 1 o$=o$+" INTRODUCTION/I MENU PRESS ANY OTHER KEY " 1 o$=" TECH.INFORMATION/T MENU/M DEMO/PRESS ANY KEY " 1 o$=" PRESS A KEY TO CONTINUE " 1 o$=" INTRODUCTION/I M/MENU TECH. INFO PRESS ANY OTHER KEY " 1 o$=" DEMO/D": 1 o$=" " 1 n2 section 1 n(mx-mw,my-mw,mx+me,my+me) 1 n(mx+md,my-md,mx-mu,my+mu) 1 n(cx-cl,cy,cx+cr,cy) 1 n(cx,cy-cl,cx,cy+cr) 1 n$="MENU "+ 1 n$="INTRODUCTION": 1 n$="HELP 2": 1 n$="HELP 1": 1 multiline 1 menu print 1 magnifies a spec- ified portion of the screen to double its previous sizeP 1 m$=" " 1 lz segment 1 l(x,y,i,128 1 j), line draw (FNg)",6000 1 j(mx,my,r,s,f) 1 ink=asc-48 1 initialise variables 1 i(cx,cy,mx,my,tx,ty) 1 h,v specify horizontal and vertical sizes of area (x+(2*h)<32, y+(2*v)<22)N 1 graphcode , 1 g(mx,my,cx,cy) 1 draws a series of lines, and requests you to INPUTsome characters; these are dis- played when ENTER is pressed. A portion of the screen is then magnified and reduced to normal size again 1 d$=d$+p$(n 1 cover circle 1 contains POKEs for mag routine 1 c(x1,y1,h1,v1,c1,0 1 c(x,y,h,v,c,b,fl) 1 b(x,y,h,v,c,b,fl) 1 a(x,y,h,v) 1 XXXVZZZZVVVT\\\\TTTR^^^^RRRP````PPPNbbbbNNNLddddLLL> 1 Quit routine 1 Print marker 1 MAGNIFICATION ROUTINEXJ 1 LOADER 1 Introduction page 1 GRAPHICS 1 GRAPHED 1 EYDDNDZ<%O%0$ 1 E$F1G@HQIdJyK 1 Demo text + routines 1 Demo Routines Text 1 Demo Routine 'sel' 1 Created with Ramsoft MakeTZX 1 ;'"Start Address:"; 1 ;"Window PAPER"'"E"; 1 ;"Window INK"'"W"; 1 ;"What it does:"; 1 ;"Triangle"' 1 ;"STOP THE TAPE NOW!!": 1 ;"STOP THE TAPE NOW!!" 1 ;"START TAPE NOW"' 1 ;"SPACE moves the cursor"' 1 ;"SAVE screen"'"J"; 1 ;"ROUTINE PARAMETERS": 1 ;"REDRAW LINES" 1 ;"Partial screen clear" 1 ;"PRESS THE ENTER KEY FOR GRAPHICSEDITOR OR ANY OTHER KEY TO QUIT " 1 ;"PRESS ENTER TO QUIT HELP PAGES ANY OTHER KEY REDISPLAYS HELP 1 " 1 ;"PRESS ANY OTHER KEY TO RETURN TOMENU PAGE. " 1 ;"POKING POINTS INTO MEMORY"' 1 ;"POKING POINTS INTO BUFFER"' 1 ;"PLEASE WAIT 2 MINS": 1 ;"Other Routines called:"; 1 ;"NOW REDUCING IMAGE": 1 ;"NO DEMONSTRATION": 1 ;"Line"'"B"; 1 ;"Length:"; 1 ;"LOADING TITLE SCREEN PLEASE WAIT" 1 ;"LOAD screen" 1 ;"LOAD ""graphcode"" 1 ;"Help 1"' 1 ;"Grid on/off"'"X"; 1 ;"GRAPHICS EDITOR" 1 ;"Flash (0-1)?" 1 ;"Fill"'"G"; 1 ;"ENTER selects the option" 1 ;"Dot"'"L"; 1 ;"Demo Finished" 1 ;"DRAW LINES": 1 ;"DESCRIPTION OF DEMO PROGRAM" 1 ;"Circle"' 1 ;"Bright (0-1)?" 1 ;"Box"'"T"; 1 ;"Attribute edit"' 1 ;"Address"'': 1 ;"123456 654321" 1 ;"-s=start, f=finish (0-360)" 1 ;"-press T again for third corner of triangle"'"C"; 1 ;"-any key for Help page 2"' 1 ;"-P change PAPER colour"; 1 ;"-O change BRIGHT/FLASH"; 1 ;"-I change INK number"; 1 ;"-ENTER to quit text" 1 ;"-ENTER quit attribute edit" 1 ;"(press ENTER on Help page 2 to return to your drawing)" 1 ;" ";x$;"." 1 ;" ";ln;" bytes" 1 ;" PRESS ANY KEY TO CONTINUE ": 1 ;" PRESS A KEY TO CONTINUE " 1 8X$@%)5:TW_!\L 1 4y5d6Q7@819$: 1 4[6BV;_-C$TF*26.:L 1 0p08 <@B||R 1 080p @BB@@b 1 /[a:'XR' N 1 ,"x,y specify top left-hand corner of the box (x<256, y<176)","h,v specify horizontal and vert- ical pixel measurements of the box (x+h<256, y+v<176)" 1 ,"x,y specify top left-hand corner of area to be reduced (x<32, y<22)","h,v specify horizontal and vertical sizes of area (x+(2*h)<32, y+(2*v)<22)","Use only after Magnification. See Magnification for demonstra-tion." 1 ,"x,y specify top left-hand corner of area to be magnified (x<32, y<22)","h,v specify horizontal and vertical sizes of area (x+(2*h)<32, y+(2*v)<22)" 1 ,"x,y specify top left-hand corner of area to be cleared (x<32,y<24)","h,v specify relative distance in characters to bottom right- hand corner of area (y+v<24) (x+h<32)" 1 ,"x,y specify the start position of the line (x<256, y<176)","p,q specify the end position of the line (p<256, y<176)" 1 ,"x,y specify the pixel position where a point will be plot- ted (x<256, y<176)","Pixel co-ordinates start at the bottom left-hand corner of the screen." 1 ,"x,y specify the centre point of the arc (x<256,y<176)","r specifies the radius of the arc (r<256)","s,f specify the length of the arc (s<256, f<256)" 1 ,"x,y specify the centre point of the arc (x<256, y<176)","r specifies the radius of the arc (r<256)","s,f specify the length of the arc (s<256, f<256)","s=0 and f=255 will draw a circle" 1 ,"x,y specify the centre point of the arc (x<256, y<176)","r specifies the radius of the arc (r<256)","s,f specify the length of the arc (s<256, f<256)" 1 ,"x,y specify start position of line (x<256, y<176)","p,q specify end position of line (p<256, q<176)","Use pixel co-ordinates." 1 ,"x,y specify first corner","p,q specify second corner","r,s specify third corner"," (x,p,r<256, y,q,s<176)",5930 1 ,"x,y specifies start position where text will be printed (x<32, y<24)","Text should be POKEd as a stringinto memory at address 62500 (100 characters maximum)." 1 ,"x,y specifies start position where text will be printed (x<32, y<24)","Text is POKEd as a string (n$) into memory from address 62500. A maximum of 100 characters can be stored." 1 ,"x,y pixel co-ordinates of the point at which to start filling (x<256, y<176)" 1 ,"used to draw a series of lines quickly. The line co-ordinates must be storedin memory from location 57200 before the routine is called. Up to 199 lines can be stored","" 1 ,"similar to BASIC CLS command, but clears only a specified rectangular portion ofthe screen","xyhv" 1 ,"saves the current screen display in memory","hl" 1 ,"reduces a pre- enlarged area to its original size","xyhv" 1 ,"prints the word 'Spectrum' (stored in the program as a string, n$) in six columns down the screen" 1 ,"prints some numberson the screen, and draws lines over them. The routine is then called again with the same parameters. The lines are removed, leaving the numbers intact" 1 ,"plots random pointsacross the middle of the screen" 1 ,"plots a single pixel point on the screen","xy" 1 ,"magnifies a spec- ified portion of the screen to double its previous size","xyhv" 1 ,"is in two parts. Inthe first part, three sets of circles are drawn in succession.The screen then clears,and a series of decreasing-sized arcs is drawn" 1 ,"h,l specify the high and low bytes of the address in memory at which the screen was stored (0 1 ,"h,l specify the high and low bytes of the address in memory at which the screen is to be stored (0 1 ,"fills an area bounded by a solid line of INK, in the current INK colour","xy" 1 ,"draws two pyramids.Each pyramid is made up of a series of lines, drawn by the routine" 1 ,"draws triangles keeping two points constant but changing the position of the third corner" 1 ,"draws lines across the screen. It then prints the word 'Spectrum' (stored in the program as a string, n$) over the lines" 1 ,"draws an arc of specified radius, and joins the ends to the centre","xyrsf" 1 ,"draws an arc be- tween two points a specified radius from a centre point, and joins the ends together","xyrsf" 1 ,"draws an arc between two points at a speci- fied radius from a centre point","xyrsf" 1 ,"draws a triangle given the pixel co-ordinates of the three corners","xypqrs" 1 ,"draws a series of exclusive/OR lines, the co-ordi-nates of which are stored in a table at location 57200. Up to 200 lines can be stored","" 1 ,"draws a series of lines, and requests you to INPUTsome characters; these are dis- played when ENTER is pressed. A portion of the screen is then magnified and reduced to normal size again" 1 ,"draws a series of boxes and fills every other box" 1 ,"draws a pattern of four squares increasing in size across the screen" 1 ,"draws a line on the screen between two specifiedpoints, using Exclusive OR to give the opposite of what was there before","xypq" 1 ,"draws a line between two specified points","xypq" 1 ,"draws a diagonal pattern of sectors, repeated across the screen" 1 ,"draws a cone from aseries of sectors of decreasing radius. The display is then repeated with a different STEP size" 1 ,"draws a box given the pixel co-ordinates of the top left-hand corner, and the horizontal and vertical dimen- sions of the box","xyhv" 1 ,"displays enlarged characters in vertical columns on the screen","xy" 1 ,"displays enlarged characters in horizontal rows onthe screen","xy" 1 ,"displays a screen previously stored in memory by the compaction routine","hl" 1 ,"displays a pattern of squares on the screen. It will then clear areas of the pattern" 1 ,"displays a pattern of squares on the screen. It will then change the ink colour of bands on the pattern" 1 ,"changes the paper colour of areas of the screen" 1 ,"changes the PAPER colour of any specified area of the screen","xyhvcbf" 1 ,"changes the INK colour of any specified area of the screen","xyhvcbf" 1 ,"calculates a seriesof points which are then joined by the routine. The resulting shape is then filled, and the sequence repeated" 1 ,"calculates a seriesof points which are drawn to form a shape. The routine is then called again with the same parameters to erase the drawing" 1 ,"XOR line",57600 1 ,"Window paper",62600 1 ,"Window ink",62800 1 ,"Segment",58700 1 ,"Sector",58800 1 ,"Reduction",56957 1 ,"Point plot",61500 1 ,"Partial clear",63000 1 ,"Multi-XOR line",57000 1 ,"Magnification",56700 1 ,"Line draw",60700 1 ,"Fill",57700 1 ,"Double vertical text",61900 1 ,"Decompaction",56500 1 ,"Box draw",60400 1 ,"Arc/circle draw",58900 1 );'" Save all machine code"'" Quit menu/load Graphics editor" 1 '''"This cassette gives an explana- tion and demonstration of each machine-code routine contained in the book. An introductory screen describes each routine. Ademonstration program then givesan example of the routine in use." 1 '''"Press 'S' to save all the code for the graphics routines."''"To load the routines back into memory use the command shown below:-" 1 '''"For more detailed information about each routine, a further screen gives technical details of parameters and their limits." 1 '"This program is fully explained in Book 3 of the DK Screen Shot Graphics Pack." 1 '"This program ";f$;"." 1 '"The main cursor is moved using the cursor keys. Press CAPS SHIFT 'm' to move the smaller cursor to the main cursor." 1 '"The code starts at address 56500and has a length of 6700 bytes." 1 '"It can be accessed by pressing CAPS SHIFT 'h'. This displays the first Help page; pressing any key will then display Help page 2. Press ENTER to return toyour drawing; press any other key to redisplay Help page 1." 1 '"All commands require CAPS SHIFT to be held down while pressing the letter." 1 '"A Help command has been added togive a quick guide to all the other commands available." 1 '" Swop to menu "; 1 "s = ";s;" f = ";f 1 "graphcode" 1 "XOR LINE ROUTINE",57600 1 "WINDOW PAPER ROUTINE",62600 1 "WINDOW INK ROUTINE",62800 1 "Triangle draw",60300 1 "TRIANGLE DRAW ROUTINE",60300 1 "Screen compaction",56600 1 "SEGMENT ROUTINE",58700 1 "SECTOR ROUTINE",58800 1 "SCREEN DECOMPACTION ROUTINE",56500 1 "SCREEN COMPACTION ROUTINE",56600 1 "SAVE ";p$ 1 "REDUCTION ROUTINE",56957 1 "POINT-PLOT ROUTINE",61500 1 "PARTIAL SCREEN CLEAR",63000 1 "Multi-line( 1 "Multi-line draw",57100 1 "Master curve routines",5800 1 "MULTIPLE LINE DRAW",57100 1 "MULTI-XOR LINE DRAW",57000 1 "MAGNIFICATION ROUTINE",56700 1 "LOAD ";p$ 1 "LINE DRAW ROUTINE",60700 1 "FILL ROUTINE",57700 1 "ENLARGED VERTICAL TEXT ROUTINE",61900 1 "ENLARGED HORIZONTAL TEXT ROUTINE",62200 1 "Double horizontal text",62200 1 "BOX DRAW ROUTINE",60400 1 "Arc draw (FNg), line draw (FNj)",5900 1 "Arc draw ( 1 "ARC/CIRCLE ROUTINE",58900 1